高速インタープリタＢＩＧ−８＋ゲーム ――――――――――――――――――――――――――――――――――――――― Ｉ／Ｏ　１９８２年　５月号掲載 ＰＣ−８００１　３２Ｋ マシン語　０Ｅ０００Ｈ−０Ｅ９ＦＦＨ　Ｓ：０Ｅ０００Ｈ ゲーム　　ＩＮＧＡＲＡＤＥＲ 　　　　　”ＩＮＧ” 起動方法 ＣＬＥＡＲ１００，＆Ｈ９ＦＦＦ ＭＯＮ Ｌ ＧＥ０００ ゲーム：ＩＮＧＡＲＡＤＥＲ ＢＩＧ−８を起動 ＣＬＯＡＤ”ＩＮＧ” ＲＵＮ ＊ＬＩＳＴが取れない場合 　起動前に０５０００Ｈを実行する ――――――――――――――――――――――――――――――――――――――― ＢＩＧ−８（Beginner's Instrument for Games）はその名のとおり、 ゲーム専用の８ビット整数型ＢＡＳＩＣ風インタープリタです。 取り扱う数値が８ビットであるのと ソース・プログラムを中間コード化してあることにより、 そのスピードはＢＡＳＩＣと比較すれば超高速です。 また、インタープリタのためコンパイルしたり、 アセンブルする煩雑さがなく、デバックも簡単です。 エディタは、Ｉ／Ｏ’８１年１１月号の 上田智章氏の“N-BASIC Consoliator”で使っている方法を応用したので、 ＢＡＳＩＣのエディタそのままです。 表１にエディタの命令を掲げます。 Ｎ−ＢＡＳＩＣのエディタを使用するため他機種への移植は無理でしょう。 （注）３２Ｋ　ＲＡＭ　ＰＣが必要です。 表１　エディタの命令 ・−−−−−−−−−−−−−−−−−−−−−−−−−−−・ ｜・―――・　　　　　　　　　　　　　　　　　　　　　　｜ ｜｜AUTO ｜　　　　　　　　　　　　　　　　　　　　　　｜ ｜｜CLOAD ｜　　　　　　　　　　　　　　　　　　　　　　｜ ｜｜CSAVE ｜　左記の命令は　　　　　　　　　　　　　　　｜ ｜｜DELETE｜　Ｎ−ＢＡＳＩＣと同じ機能を持ちます。　　　｜ ｜｜KEY ｜　LINK"ファイル・ネーム"：　　　　　　　　　｜ ｜｜LIST ｜　テープからファイルをロードし　　　　　　　｜ ｜｜LLIST ｜　メモリ上のプログラムの後に結合します。　　｜ ｜｜MON ｜　OLD ：誤ってＮＥＷしたときに、　　　　　　｜ ｜｜MOTOR ｜　この命令によリソース・プログラムを　　　　｜ ｜｜NEW ｜　を復活させることができます。　　　　　　　｜ ｜｜RENUM ｜　　　　　　　　　　　　　　　　　　　　　　｜ ｜｜RUN ｜　　　　　　　　　　　　　　　　　　　　　　｜ ｜・―――・　　　　　　　　　　　　　　　　　　　　　　｜ ・−−−−−−−−−−−−−−−−−−−−−−−−−−−・ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　　　　　文法　　　　　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ (１)　行 　行の最初にＢＡＳＩＣと同様に0〜65529の文番号を書きます。 　マルチステートメントが使用可能です。 (２)　定数 　定数には文字定数および数値定数の２種類があります。 　文字定数は引用符に囲まれた一文字のキャラクタです。 　数値定数は0〜255の10進整数と&H00〜&HFFの16進数です。 (３)　単純変数 　変数名は英文字一文字です。 　文字変数はありません。 　また、ＲＵＮしたとき最初の値は不定です。 (４)　配列変数 　配列変数は一次元のみで次の形式をしています。 　・―――――――――――――――――・ 　｜　変数名（式）　　　　　　　　　　｜ 　・―――――――――――――――――・ 　変数が上位８ビット、式が下位８ビットをあらわす番地に対して 　読み書きを行ないます。 　・―――――――――――――――――・ 　｜例｜A=&HC0:B=A(0) 　　　　　　　　｜ 　・―――――――――――――――――・ 　これはＢＡＳＩＣのＢ＝ＰＥＥＫ（＆ＨＣ０００）と同じです。 　・―――――――――――――――――・ 　｜例｜A=&HC0:A(0)=10　　　　　　　　｜ 　・―――――――――――――――――・ 　これはＢＡＳＩＣのＰＯＫＥ（＆ＨＣ０００，１０）と同じです。 (５)演算子 　演算子としては次のものがあります。 　＋、−、＊、／、ＡＮＤ、ＯＲ、ＸＯＲ、＝、＞、＜、＃ 　（＃はＢＡＳＩＣの＜＞） 　優先順位はないので、必要なときにはカッコを使用してください。 　なお、関係演算子はそれが“真”のときには２５５を、 　“偽”のときには０をその値とします。 　式は変数と定数をこれらの演算子で結んだものです。 (６)関数 ■ＩＮＰ（式）：式の値で示されるポートから入力したデータを与えます。 ■ＲＮＤ：０〜２５５の乱数を与えます。 ■ＳＴＩＣＫ：テン・キーの[２]、[４]、[６]、[８]の 　いずれかが押されているとそのキーの値を与えます。 　どのキーも押されていないときには０となります。 ■ＳＴＲＩＧ：[ＳＰＡＣＥ]バーが押されていると“真”、 　押されていなければ“偽”を与えます。 ■ＩＮＫＥＹ＄：キーボードから一文字入力します。 　キーが押されるまで待ちます。 ■［単純変数名＋］：変数の値を関数の値とした後、 　変数の値を１だけ増加します。 ■［単純変数名−］：変数の値を１だけ減少し、それを関数の値とします。 　・――――――――――――――――――――――――――・ 　｜例｜A=1:B=[A+]　　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　これを実行するとＡは２、Ｂは１となる。 　・――――――――――――――――――――――――――・ 　｜例｜A=1:B=[A-]　　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　これを実行するとＡ、Ｂともに０となる。 (７)ステートメント ■代入文：　変数＝式 　式の値を変数に代入します。 ■ＣＡＬＬ＆Ｈｎｎｎｎ 　マシン語サブルーチンを実行します。 ■ＤＡＴＡ（＆Ｈｎｎｎｎ）定数［，定数…］ 　指定した番地からデータを格納します。 　番地を省略した場合は、 　以前に実行したＤＡＴＡ文の続きとして実行します。 定数の代わりに“文字列”とすれば、ＡＳＣＩＩコードが格納されます。 ■ＥＮＤ 　プログラムの実行を終了します。 ■ＧＥＴ（式，式，式，式） 　画面のキャラクタまたはドット・グラフィックス 　をメモリヘセーブします。 　後で詳しく述べます。 ■ＧＯＳＵＢ　行番号 　行番号から始まるサブルーチンをコールします。 ■ＧＯ　ＴＯ　行番号 　行番号ヘジャンプします。 ■ＩＦ　式　ＴＨＥＮ　文１　ＥＬＳＥ　文２ 　式の値が０でなければ文１を、０ならば文２を実行します。 　ＥＬＳＥ以下は省略が可能です。 　多重化（ネスティング）ができます。 　Ｎ−ＢＡＳＩＣのようなＩＦ〜ＧＯＴＯあるいは 　ＩＦ〜ＴＨＥＮ行番号などは使えません。 ■ＩＮＰＵＴ単純変数［，単純変数名…］ 　キーボードから数値を入力します。 　疑問符はプリンタされません。 　単にキャリッジ・リターンだけを入力すると 　変数の値は０になります。 　１つの変数に対して、 　１度ずつキャリッジ・リターンを押す必要があります。 　・――――――――――――――――――――――――――・ 　｜例｜INPUT A,B 　　　　　　　　　　　　　　　　　　　｜ 　・―・　　　　　　　　　　　　　　　　　　　　　　　　｜ 　｜　これを実行したとき、次のように入力します。　　　　｜ 　｜　[５][CR]　　　　　　　　　　　　　　　　　　　　　｜ 　｜　[４][CR]　　　　　　　　　　　　　　　　　　　　　｜ 　｜　(N−BASIC)では[５][，][４][CR]　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ ■ＬＯＣＡＴＥ　式１，式２ 　式１を水平位置、式２を垂直位置としてカーソルを移動します。 ■ＭＩＮＵＳ単純変数名＝（式１，式２，式３，式４） 　式１を上位８ビット、式２を下位８ビットとする16ビット整数から、 　式３を上位８ビット、式４を下位８ビットとする16ビット整数を引き、 　結果の下位８ビットを指定した単純変数に 　上位８ビットをその次の単純変数に代入します。 　・――――――――――――――――――――――――――・ 　｜例｜MINUS A=(1,0,0,1) 　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　これを実行するとＡは２５５、Ｂは０となります 　（この引き算は＆Ｈ０１００−＆Ｈ０００１を計算している）。 ■ＰＲＩＮＴ　式［，”文字列”，／（改行），…］ 　ディスプレイに式の値、文字列を出力します。 　単に改行だけするときは次のとおりです。 　・――――――――――――――――――――――――――・ 　｜例｜PRINT / 　　　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　式が複数のときは間か開かないので次のようにします。 　・――――――――――――――――――――――――――・ 　｜例｜PRINT A," ",B+C,/ 　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　省略形として”？”は使えません。 ■ＰＬＵＳ　単純変数名＝（式１，式２，式３，式４） 　ＭＩＮＵＳと同様に16ビット整数の足し算に使います。 ■ＰＵＴ（式，式，式，式） 　メモリの内容をキャラクタまたはドット・グラフィックスとして 　画面へロードします。 　後で詳しく述べます。 ■ＲＥＭあるいは、“’” 　注釈行であることを示します。 ■ＲＥＰＥＡＴ 　ＵＮＴＩＬを見てください。 ■ＲＥＴＵＲＮ 　サブルーチンから戻ります。 ■ＳＯＵＮＤ　式１，式２ 　式１が上位８ビット、式２が下位８ビットの番地からを 　データとして音を出力します。 　デ−タの以後に＆ＨＦＦをいれておきます。 　Ｉ／Ｏ’８０年12月号山上潤氏のプログラムを使わせていただきました。 　E375番地に音長、E38F番地にチューニングのデータがあります。 ■ＵＮＴＩＬ　式 　式の値が０ならばＲＥＰＥＡＴの次の文から繰り返します。 　多重化（ネスティング）ができます。 　ループの外ヘジャンプしたり、ループの中ヘジャンプすることはできません。 　・――――――――――――――――――――――――――・ 　｜例｜K=0:REPEAT　　　　　　　　　　　　　　　　　　　｜ 　｜　｜UNTIL[K+]=10　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　これはＢＡＳＩＣで書くと次のようになります。 　・――――――――――――――――――――――――――・ 　｜　FOR K=0 TO 10 　　　　　　　　　　　　　　　　　　｜ 　｜　NEXT K　　　　　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　・――――――――――――――――――――――――――・ 　｜例｜K=0:REPEAT　　　　　　　　　　　　　　　　　　　｜ 　｜　｜UNTIL[K-]=0 　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ 　これはＢＡＳＩＣで書くと次のようになります。 　・――――――――――――――――――――――――――・ 　｜　FOR K=10 TO 1 STEP -1 　　　　　　　　　　　　　　｜ 　｜　NEXT K　　　　　　　　　　　　　　　　　　　　　　｜ 　・――――――――――――――――――――――――――・ ■ＷＰＲＩＮＴ　単純変数名 　指定した変数の値を下位８ビット、 　その次の変数の値を上位８ビットとする16ビット整数の値を出力します。 (８)画面制御命令 　次の命令はＮ−ＢＡＳＩＣと同様に使えます。 　ただし、パラメータは数値定数のみ使えます。 　ＣＯＬＯＲ、ＣＯＮＳＯＬＥ、ＷＩＤＴＨ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　ＢｉＧ−８の走らせ方　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ まず、ＰＣのスイッチを入れて次のようにします。 ・―――――――――――――――――・ ｜　CELAR 100,&H9FFF[CR]　　　　　　｜ ｜　MON[CR] 　　　　　　　　　　　　｜ ｜　*SE000[CR]　　　　　　　　　　　｜ ・―――――――――――――――――・ 後はＥ０００〜Ｅ９ＦＦまでリストを打ち込みます。 そして次のようにテープにセーブします。 ・―――――――――――――――――・ ｜　*WE000,E9FF[CR] 　　　　　　　　｜ ・―――――――――――――――――・ テープから入力するときも、ＣＬＥＡＲ文を忘れないでください。 ＢＩＧ−８の起動は次のようにします。 ・―――――――――――――――――・ ｜　*GE000[CR]　　　　　　　　　　　｜ ・―――――――――――――――――・ 後はＢＡＳＩＣと同じ方法でプログラムを入れ、 ＲＵＮ[CR]で実行します。 実行の途中で中止したいときは、[STOP]キーを押してください。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　　　　ＰＵＴ文　　　　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ＢＩＧ−８が起動したら、 後は動きまわるエイリアンをミサイルで撃墜するプログラムを、 ＢＡＳＩＣのような手軽さ書けばよいのです。 さて、その動きまわるエイリアンを表示するのに使うのが、 ＰＵＴ文です。 ＰＵＴ文は次の形式をしています。 ・――――――――――――――――――――――――――・ ｜　PUT (式１，式２，式３，式４)　　　　　　　　　　　｜ ・――――――――――――――――――――――――――・ 式１は座標の水平位置、 式２は垂直位置をそれぞれキャラクタ単位で指示します。 また、式３か上位８ビット、式４が下位８ビットを表わす番地から データが格納してあることを示します。 指定された番地には図形の横のサイズ、 次の番地に縦のサイズをそれぞれキャラクタ単位書き込んでおき、 その次の番地からキャラクタ単位のデータを書き込んでおきます。 図１のインベーダーを表示するプログラムをリスト１に示します。 図１ ・−−−−−−−−−−−−−−−−−−−−−−−−−−−・ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　　　　　　_____4_____ 　　　　　　　　　　　｜ ｜　　　　　　　　　 | |　　　　　　　　　　　｜ ｜･-----------･　　 -･-----------･　　　　　　　　　　　｜ ｜|# | | | #|　　| | | | | |　　　　　　　　　　　｜ ｜|##| | |##|　　| |63|C8|8C|36|　　　　　　　　　　　｜ ｜| #| #|# |# |　　| | | | | |　　　　　　　　　　　｜ ｜| |##|##| |　　| | | | | |　　　　　　　　　　　｜ ｜|--+--+--+--|　⇒2 |--+--+--+--|　　　　　　　　　　　｜ ｜| #|##| #|# |　　| | | | | |　　　　　　　　　　　｜ ｜|##|# |# |##|　　| |7E|D7|5A|E7|　　　　　　　　　　　｜ ｜|##|##| #|##|　　| | | | | |　　　　　　　　　　　｜ ｜|# | #|# | #|　　| | | | | |　　　　　　　　　　　｜ ｜･-----------･　　 -･-----------･　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　･----･　･----･　　　･----･　　　　　　　　　　　　　｜ ｜　|1 16|　|■　|　　　|1 0|　　　　　　　　　　　　　｜ ｜　|2 32|　|■■|　→　|2 32|　→1+2+32+64=&H63　　　　｜ ｜　|4 64|　|　■|　　　|0 64|　　　　　　　　　　　　　｜ ｜　|8128|　|　　|　　　|0 0|　　　　　　　　　　　　　｜ ｜　･----･　･----･　　　･----･　　　　　　　　　　　　　｜ ｜　キャラクタごとに数値化する　　　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ・−−−−−−−−−−−−−−−−−−−−−−−−−−−・ リスト１ 10 WIDTH 40,25:CONSOLE 0,25,0,1 20 CLS 30 DATA (&HD000) 4,2,&H63,&HC8,&H36,&H7E,&HD7,&H5A,&HE7 40 PUT(10,10,&HD0,&H0) ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　　　　ＧＥＴ文　　　　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ＰＵＴ文と逆の働きをするのがＧＥＴ文です。ＧＥＴ文は次の形式をしています。 ・――――――――――――――――――――――――――・ ｜　GET (式１，式２，式３，式４)　　　　　　　　　　　｜ ・――――――――――――――――――――――――――・ 式１、式２はＰＵＴ文と同じです。 式３、式４が示す番地に横のサイズ、次の番地に縦のサイズを書いておくと その次の番地から画面のデータがメモリにセーブされます。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　　ＩＮＧＡＲＡＤＥＲ　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ＢＩＧ−８でゲームを作ってみました。 宇宙船はテンーキーの[４]と[６]で左右に動き、 [スペース]キーでビームが発射されます。 ＵＦＯは３００点、インギャラダーは１０点、 ロケット・ミサイルは引きつけて撃つと高得点が、それぞれ得られます。 これだけ知っていれば遊べます。 単純なゲームですが、インギャラダーの動きが面白いと思います。 なお、ＰＵＴ文ではキャラクタごとの色の指定ができないので アトリビュート・エリアで色の指定をしています （プログラム２５０行〜２８０行）。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　　　　　　　最後に　　　　　　　　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ とてもインタープリタとは思えないスピードだと 自分では気にいっています。 多くの人に使ってもらいたいと願っています。 【】参考文献 上田智幸氏：“N-BASIC Consolidator”、Ｉ／Ｏ、’８１年１１月号